(outline-up-heading): Avoid infinite loop at beginning of buffer.

diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el
index f12518c4051fd4f3c7323bb842c4c63fe78f7617..f9717798b3da148b095b32fb4af0356b1c8e4130 100644 (file)
--- a/lisp/textmodes/outline.el
+++ b/lisp/textmodes/outline.el
@@ -620,7 +620,8 @@ With argument, move up ARG levels."
              (> arg 0)
              (not (bobp)))
     (let ((present-level (funcall outline-level)))
-      (while (not (< (funcall outline-level) present-level))
+      (while (and (not (< (funcall outline-level) present-level))
+                 (not (bobp)))
        (outline-previous-visible-heading 1))
       (setq arg (- arg 1)))))